home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / util / cdity / ModeProSrc.lha / Install-Dev / Script < prev    next >
Text File  |  1999-02-07  |  9KB  |  281 lines
  1. ; Install script for ModePro
  2.  
  3. (set path_wbstartup       ( expandpath "Sys:WBStartup") )
  4. (set path_commodities     ( expandpath "Sys:Tools/Commodities") )
  5. (set path_prefs           ( expandpath "Sys:Prefs") )
  6. (set path_modepro         path_commodities)
  7.  
  8. ( set ModePro "ModePro")
  9. ( set ModeProPrefs "ModeProPrefs" )
  10.  
  11. ( set file_modepro_src       "ModePro")
  12. ( set file_modeproprefs_src  "ModeProPrefs" )
  13. ( set file_screentab         (tackon path_wbstartup "ScreenTab"))
  14.  
  15.  
  16. (set catalog_1   "ÃeÓtina")
  17. (set catalog_2   "dansk")
  18. (set catalog_3   "deutsch")
  19. (set catalog_4   "español")
  20. (set catalog_5   "français")
  21. (set catalog_6   "Hrvatski") 
  22. (set catalog_7   "íslenska")
  23. (set catalog_8   "italiano") 
  24. (set catalog_9   "magyar") 
  25. (set catalog_10   "norsk")
  26. (set catalog_11  "polski")
  27. (set catalog_12  "português-brasil")
  28. (set catalog_13  "russian")
  29. (set catalog_14  "srpski")
  30. (set catalog_15  "svenska") 
  31. (set catalog_16  "türkçe")
  32.  
  33. (set catalogs 16)
  34.  
  35. ;#######################################################################
  36. ; If you want to translate this installer script, simply 
  37. ; translate the file "english.strings", then send me the 
  38. ; new file with the native language name as the file title.
  39. ;
  40. ; You don't need to do anything to the file other than 
  41. ; translate it and rename it.  I have a script compiler
  42. ; that handles all the logic needed (if (= language 'your language') ... 
  43. ;########################################################################
  44.  
  45. INSERT_STRINGS
  46.  
  47. ;-------- BEGIN ----------
  48.  
  49. ; Fix these strings
  50. (set path_modepro_prompt  (path_modepro_prompt path_commodities))
  51. (set path_mpprefs_prompt  (path_mpprefs_prompt path_prefs))
  52.  
  53.  
  54. (if (exists file_screentab)
  55.   (
  56.     (set startup_prompt (cat startup_prompt startup_screentab))
  57.     (set startup_help   (cat startup_help startup_screentab))
  58.   )
  59. )
  60.  
  61.  
  62. ;### Check to see if a previous version is installed ###
  63.  
  64. (if (exists (tackon path_commodities file_modepro_src))
  65.   (
  66.     (set path_mp_location path_commodities)
  67.     (set found_install 1)
  68.   )
  69.  
  70.   (if (exists (tackon path_wbstartup file_modepro_src))
  71.     (
  72.       (set path_mp_location path_wbstartup)
  73.       (set found_install 1)
  74.     )
  75.   )
  76. )
  77.  
  78. (if (exists (tackon path_prefs file_modeproprefs_src))
  79.   (
  80.     (set path_mpprefs_location path_prefs)
  81.     (set found_install (+ found_install 1))
  82.   )
  83. )
  84.  
  85. (set quickupdate 1)
  86.  
  87. (debug path_mp_location path_mpprefs_location)
  88.  
  89. (if (= found_install 2)
  90.   (
  91.     (set quickupdate (askchoice (prompt quickupdate_prompt) 
  92.                                 (help quickupdate_help)
  93.                                 (default 0) 
  94.                                 (choices quickupdate_choice0 quickupdate_choice1) 
  95. ) ) )                )
  96.  
  97. (if (= quickupdate 1)
  98.   ( ;### Full update ###
  99.     (set startup_method (askchoice (prompt  startup_prompt)
  100.                                    (help    startup_help)
  101.                                    (choices startup_choice0 startup_choice1 startup_choice2)
  102.                                    (default 2)
  103.     )                   )
  104.     
  105.     
  106.     (if (= startup_method 2) 
  107.       (
  108.         ( set path_delmodepro path_commodities)
  109.         ( set path_modepro    path_wbstartup)
  110.       )
  111.       (
  112.         ( set path_delmodepro path_wbstartup)
  113.         ( set path_modepro (askdir (prompt  path_modepro_prompt)
  114.                                    (help    path_modepro_help)
  115.                                    (default path_commodities)
  116.         )                  )
  117.       )
  118.     )
  119.     
  120.     ( set path_mpprefs (askdir (prompt  path_mpprefs_prompt)
  121.                                (help    path_mpprefs_help)
  122.                                (default path_prefs)
  123.     )                  )
  124.     
  125.     
  126.     
  127.     ( set ModeProPrefsCommand (tackon ( path_mpprefs) 
  128.                                        ( "ModeProPrefs") 
  129.                               ) 
  130.     )
  131.     
  132.     ( set tt_cxpopkey ( askstring (prompt tt_cxpopkey_prompt)
  133.                                   (help tt_cxhelp)
  134.                                   (default "lamiga p")
  135.                    
  136.     )                 )
  137.     
  138.     ( set tt_cxpri ("%ld" (asknumber (prompt tt_cxpri_prompt)
  139.                                      (help tt_cxhelp)
  140.                                      (default 5)
  141.     )              )      ) 
  142.     
  143.     ( set tt_cxpopup (askchoice (prompt tt_cxpopup_prompt) 
  144.                                 (help tt_cxhelp)
  145.                                 (default 0) 
  146.                                 (choices No Yes) 
  147.     )             )
  148.     
  149.     ( set tt_wbpromote (askchoice (prompt tt_wbpromote_prompt) 
  150.                                 (help tt_wbpromote_help)
  151.                                 (default 0) 
  152.                                 (choices No Yes) 
  153.     )             )
  154.     
  155.     ( set tt_wbpromotable (select tt_wbpromote "(WBPROMOTABLE)" "WBPROMOTABLE") )
  156.     
  157.     
  158.     ;**** ASK WHICH CATALOGS TO COPY ****
  159.     (set  copy_catalogs (askoptions  (prompt  copycat_prompt)
  160.                  (help    copycat_help)
  161.                  (choices catalog_1 catalog_2 catalog_3 catalog_4 catalog_5 catalog_6 catalog_7 catalog_8 catalog_9 catalog_10 catalog_11 catalog_12 catalog_13 catalog_14 catalog_15)
  162.                  (default 0)
  163.     )                   )
  164.     
  165.     ;**** COPY CATALOGS ****
  166.     (set optnumber 0)
  167.     ( while ( < optnumber catalogs )
  168.       (set flag (BITAND (shiftright copy_catalogs optnumber) 1) )
  169.       (if flag
  170.         (
  171.           (set cat_name  ( select optnumber catalog_1 catalog_2 catalog_3 catalog_4 catalog_5 catalog_6 catalog_7 catalog_8 catalog_9 catalog_10 catalog_11 catalog_12 catalog_13 catalog_14 catalog_15) )
  172.           (set srcpath (cat "catalogs/" cat_name ) )
  173.           (set dstpath (cat "locale:catalogs/" cat_name ) )
  174.           (makedir dstpath)
  175.           (copyfiles  (prompt (installing_catalogs cat_name)) (help (installing_catalogs cat_name)) (source srcpath) (dest dstpath) (all))
  176.         )
  177.       )
  178.       (set optnumber (+ optnumber 1) )
  179.     )
  180.     
  181.     
  182.     ;(copyfiles (prompt  copycat_prompt)
  183.     ;           (help    copycat_help)
  184.     ;           (source  "catalogs/")
  185.     ;           (dest    "locale:catalogs/")
  186.     ;           (infos)
  187.     ;           (confirm)
  188.     ;           (all)
  189.     ;)
  190.     
  191.     ;**** DELETE THE ANY EXTRA COPY OF MODEPRO ****
  192.     
  193.     (set oldmodepro_file ( tackon (path_delmodepro) 
  194.                          ("ModePro")
  195.     )          )
  196.     
  197.     (if (exists oldmodepro_file)
  198.       (
  199.         (if (askchoice (prompt  (cat oldmodepro_prompt "\n" oldmodepro_file)) 
  200.                        (help    oldmodepro_help) 
  201.                        (default 1) 
  202.                        (choices No Yes) 
  203.             )
  204.           (
  205.             (delete oldmodepro_file (prompt oldmodepro_deleting))
  206.             (delete (cat (oldmodepro_file) (".info") ) (prompt oldmodepro_deleting) )
  207.           )
  208.         ) 
  209.       )
  210.     )
  211.     
  212.     ;**** SET THE TOOLTYPES ****
  213.     
  214.     (tooltype (dest file_modepro_src)
  215.               (settooltype "CX_POPKEY"    tt_cxpopkey)
  216.               (settooltype "CX_POPUP"     (select tt_cxpopup No Yes) )
  217.               (settooltype "CX_PRIORITY"  tt_cxpri )
  218.               (settooltype "PREFSCOMMAND" ModeProPrefsCommand)
  219.               (settooltype tt_wbpromotable "")
  220.     )
  221.     
  222.     
  223.     ;**** COPY FILES ****
  224.         
  225.     (copyfiles (prompt installing_modepro)
  226.                (help   installing_modepro)
  227.                (source file_modepro_src)
  228.                (infos)
  229.                (dest path_modepro)
  230.     )
  231.     
  232.     (set @default-dest path_modepro)
  233.     
  234.     (copyfiles (prompt installing_modeproprefs)
  235.                (help   installing_modeproprefs)
  236.                (source file_modeproprefs_src)
  237.                (infos)
  238.                (dest path_mpprefs)
  239.     )
  240.     
  241.     
  242.     
  243.     
  244.     ;**** PROMPT TO MODIFY THE U-S FILE ****
  245.     (if (= startup_method 1)
  246.         ( 
  247.             (startup "ModePro"
  248.                      (prompt  usmodify_prompt )
  249.                      (help    usmodify_help )
  250.                      (command (cat "  If EXISTS "      (tackon path_modepro "ModePro")
  251.                                    "\n    Run <>NIL: " (tackon path_modepro "ModePro")
  252.                                    "\n  ENDIF\n" ) )
  253.             )
  254.         )
  255.         (
  256.            (startup "ModePro"
  257.                      (prompt  usmodify_prompt )
  258.                      (help    usmodify_help )
  259.                      (command ";Don't run ModePro from User-Startup")
  260.       
  261.             )
  262.         )
  263.     )
  264.   )   
  265.   ; else quick update 
  266.   (
  267.     (copyfiles (prompt installing_modepro)
  268.                (help   installing_modepro)
  269.                (source file_modepro_src)
  270.                (dest path_mp_location)
  271.     )
  272.     
  273.     (copyfiles (prompt installing_modeproprefs)
  274.                (help   installing_modeproprefs)
  275.                (source file_modeproprefs_src)
  276.                (dest path_mpprefs_location)
  277.     )
  278.      
  279.   )
  280. )
  281.